home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir44 / advsrc.zip / AD2DUMP.FOR < prev    next >
Text File  |  1993-07-29  |  3KB  |  96 lines
  1. c  Adventure!--Array Dumper from SAVE
  2. c   Modified for PC FORTRAN Paul Munoz-Colman, FunStuff Software
  3. c  23 March 1993  MS DOS PDS FORTRAN v5.10
  4. c  9 August 1985  with suspend and resume feature--2-byte storage
  5. c
  6. $nodebug
  7. $notstrict
  8. $storage: 2
  9. c
  10.       implicit integer*2 (a-z)
  11. c
  12.       character*2 lines (21150)
  13.       character*4 wd1,wd2,iz,bl,atab(295),wd1x,wd2x
  14.       character*1 tk(20)
  15. c
  16.       integer*2 ktab(295),rtext(205),atloc(150)
  17.       integer*2 ltext(150),stext(150),key(150),cond(150),abb(150)
  18.       integer*2 plac(100),place(100),fixd(100),fixed(100),link(200)
  19.       integer*2 actspk(35),ptext(100),prop(100),ctext(12),cval(12)
  20.       integer*2 hintlc(20),hinted(20),hints(20,4),dseen(6),dloc(6)
  21.       integer*2 idondx,odloc(6)
  22.       integer*4 travel(745),itk(20),newloc,linuse,kk,linsiz,ran
  23.       integer*4 iwd2,ll,izz
  24. c
  25.       equivalence(iwd2,wd2),(izz,iz)
  26. c
  27.       external ran
  28. c
  29.       data linsiz/21150/,trvsiz/745/,locsiz/150/,izz/0/,
  30.      .        vrbsiz/35/,rtxsiz/205/,clsmax/12/,hntsiz/20/
  31.       data bl/'    '/
  32. c
  33.       open (2,file='adventur.sv',form='unformatted')
  34. c
  35.     read  (2) place,prop,link,abb,cond,atloc,fixd,plac,hinted,
  36.      .   hintlc,dseen,dloc,odloc,fixed,hints,tally,tally2,dflag,turns,
  37.      .   limit,iwest,knfloc,detail,abbnum,maxdie,numdie,holdng,dkill,
  38.      .   foobar,bonus,lmwarn,clock1,clock2,panic,closed,obj,verb,newloc
  39.      .  ,loc,dtotal,attack,stick,itk,idondx,kk,oldlc2,oldloc,wzdark,
  40.      .  closng
  41.     close (2)
  42. c
  43.     write (*,1) abb
  44.  1    format (//,(1x,10i8))
  45.  2    format (//,(1x,5i16))
  46.     write (*,1) abbnum
  47.     write (*,1) atloc
  48.     write (*,1) attack
  49.     write (*,1) bonus
  50.     write (*,1) clock1
  51.     write (*,1) clock2
  52.     write (*,1) closed
  53.     write (*,1) closng
  54.     write (*,1) cond
  55.     write (*,1) detail
  56.     write (*,1) dflag
  57.     write (*,1) dkill
  58.     write (*,1) dloc
  59.     write (*,1) dseen
  60.     write (*,1) dtotal
  61.     write (*,1) fixd
  62.     write (*,1) fixed
  63.     write (*,1) foobar
  64.     write (*,1) hinted
  65.     write (*,1) hintlc
  66.     write (*,1) hints
  67.     write (*,1) holdng
  68.     write (*,1) idondx
  69.     write (*,2) itk
  70.     write (*,1) iwest
  71.     write (*,2) kk
  72.     write (*,1) knfloc
  73.     write (*,1) limit
  74.     write (*,1) link
  75.     write (*,1) lmwarn
  76.     write (*,1) loc
  77.     write (*,1) maxdie
  78.     write (*,2) newloc
  79.     write (*,1) numdie
  80.     write (*,1) obj
  81.     write (*,1) odloc
  82.     write (*,1) oldlc2
  83.     write (*,1) oldloc
  84.     write (*,1) panic
  85.     write (*,1) plac
  86.     write (*,1) place
  87.     write (*,1) prop
  88.     write (*,1) stick
  89.     write (*,1) tally
  90.     write (*,1) tally2
  91.     write (*,1) turns
  92.     write (*,1) verb
  93.     write (*,1) wzdark
  94. c
  95.     end
  96.